Developer CD Series 1994 November: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Matts-utils.sea / Matts-utils / object-FDI-mouse-copy-glue.lisp < prev next >
MacBinary | 1992-08-15 | 3.3 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Aug 15 07:53:59 1992, modified Sat Aug 15 07:53:59 1992, creator Common Lisp 2, type ASCII, 2669 bytes "object-FDI-mouse-copy-glue.lisp" , at 0xaed 500 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1f 6f 62 6a 65 63 74 | 2d 46 44 49 2d 6d 6f 75 |..object|-FDI-mou|
|00000010| 73 65 2d 63 6f 70 79 2d | 67 6c 75 65 2e 6c 69 73 |se-copy-|glue.lis|
|00000020| 70 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |p.......|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 0a 6d 00 | 00 01 f4 a6 b2 a0 d7 a6 |......m.|........|
|00000060| b2 a0 d7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c9 79 00 00 |........|.....y..|
|00000080| 3b 3b 3b 0d 3b 3b 3b 20 | 6f 62 6a 65 63 74 2d 46 |;;;.;;; |object-F|
|00000090| 44 49 2d 6d 6f 75 73 65 | 2d 63 6f 70 79 2d 67 6c |DI-mouse|-copy-gl|
|000000a0| 75 65 2e 6c 69 73 70 0d | 3b 3b 3b 0d 0d 23 7c 0d |ue.lisp.|;;;..#|.|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000f0| 0d 50 75 72 70 6f 73 65 | 20 3d 3d 3d 3d 3d 3d 3d |.Purpose| =======|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.======|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000170| 3d 3d 0d 44 65 66 69 6e | 65 73 20 66 75 6e 63 74 |==.Defin|es funct|
|00000180| 69 6f 6e 73 20 74 6f 20 | 6d 61 6b 65 20 74 68 65 |ions to |make the|
|00000190| 20 22 4d 4f 55 53 45 2d | 43 4f 50 59 22 20 65 78 | "MOUSE-|COPY" ex|
|000001a0| 61 6d 70 6c 65 20 64 6f | 20 6c 69 6e 6b 73 2e 0d |ample do| links..|
|000001b0| 0d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..======|========|
|000001c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 0d 53 74 61 74 75 | 73 20 3d 3d 3d 3d 3d 3d |==.Statu|s ======|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 0d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |===.====|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000270| 3d 3d 3d 3d 0d 49 6e 2d | 70 72 6f 67 72 65 73 73 |====.In-|progress|
|00000280| 2e 0d 0d 0d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |....====|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 3d 3d 3d 3d 0d 43 68 61 | 6e 67 65 20 68 69 73 74 |====.Cha|nge hist|
|000002d0| 6f 72 79 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ory ====|========|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 0d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=====.==|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000340| 3d 3d 3d 3d 3d 3d 0d 31 | 35 2d 41 75 67 2d 39 32 |======.1|5-Aug-92|
|00000350| 20 6d 63 09 43 72 65 61 | 74 65 64 2e 0d 0d 7c 23 | mc.Crea|ted...|#|
|00000360| 0d 0d 0d 28 69 6e 2d 70 | 61 63 6b 61 67 65 20 22 |...(in-p|ackage "|
|00000370| 43 43 4c 22 29 0d 0d 28 | 72 65 71 75 69 72 65 20 |CCL")..(|require |
|00000380| 22 4d 4f 55 53 45 2d 43 | 4f 50 59 22 29 0d 28 72 |"MOUSE-C|OPY").(r|
|00000390| 65 71 75 69 72 65 20 22 | 4f 42 4a 45 43 54 2d 46 |equire "|OBJECT-F|
|000003a0| 52 45 44 2d 44 49 41 4c | 4f 47 2d 49 54 45 4d 22 |RED-DIAL|OG-ITEM"|
|000003b0| 20 22 43 43 4c 3a 55 4d | 41 53 53 20 55 74 69 6c | "CCL:UM|ASS Util|
|000003c0| 73 3b 6f 62 6a 65 63 74 | 2d 66 72 65 64 2d 64 69 |s;object|-fred-di|
|000003d0| 61 6c 6f 67 2d 69 74 65 | 6d 22 29 0d 0d 0d 3b 3b |alog-ite|m")...;;|
|000003e0| 3b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;=======|========|
|000003f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000420| 3d 0d 3b 3b 3b 20 44 65 | 66 69 6e 65 20 66 75 6e |=.;;; De|fine fun|
|00000430| 63 74 69 6f 6e 73 20 74 | 6f 20 6d 61 6b 65 20 74 |ctions t|o make t|
|00000440| 68 65 20 22 4d 4f 55 53 | 45 2d 43 4f 50 59 22 20 |he "MOUS|E-COPY" |
|00000450| 65 78 61 6d 70 6c 65 20 | 64 6f 20 6c 69 6e 6b 73 |example |do links|
|00000460| 2e 0d 3b 3b 3b 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..;;;===|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004a0| 3d 3d 3d 3d 3d 0d 0d 23 | 7c 0d 53 69 6e 63 65 20 |=====..#||.Since |
|000004b0| 6d 6f 75 73 65 20 63 6f | 70 79 20 75 73 65 73 20 |mouse co|py uses |
|000004c0| 74 65 78 74 2c 20 61 6e | 64 20 73 69 6e 63 65 20 |text, an|d since |
|000004d0| 77 65 20 6e 65 65 64 20 | 6f 62 6a 65 63 74 73 20 |we need |objects |
|000004e0| 74 6f 20 63 61 6c 6c 20 | 61 64 64 2d 6c 69 6e 6b |to call |add-link|
|000004f0| 2c 0d 77 65 20 6e 65 65 | 64 20 61 20 63 6f 6e 76 |,.we nee|d a conv|
|00000500| 65 6e 74 69 6f 6e 20 66 | 6f 72 20 64 6f 69 6e 67 |ention f|or doing|
|00000510| 20 73 6f 2e 20 4f 75 72 | 20 73 6f 6c 75 74 69 6f | so. Our| solutio|
|00000520| 6e 20 75 73 65 73 20 61 | 20 63 6f 6e 76 65 6e 74 |n uses a| convent|
|00000530| 69 6f 6e 0d 73 69 6d 69 | 6c 61 72 20 74 6f 20 6d |ion.simi|lar to m|
|00000540| 6f 75 73 65 20 63 6f 70 | 79 27 73 20 77 68 69 63 |ouse cop|y's whic|
|00000550| 68 20 73 65 74 73 20 2a | 20 74 6f 20 74 68 65 20 |h sets *| to the |
|00000560| 6f 62 6a 65 63 74 2c 20 | 65 78 63 65 70 74 20 70 |object, |except p|
|00000570| 61 72 74 69 63 69 70 61 | 74 69 6e 67 0d 67 69 76 |articipa|ting.giv|
|00000580| 65 2d 74 65 78 74 20 6d | 65 74 68 6f 64 73 20 73 |e-text m|ethods s|
|00000590| 65 74 20 2a 6c 2d 6f 62 | 6a 65 63 74 2d 67 69 76 |et *l-ob|ject-giv|
|000005a0| 65 6e 2a 20 74 6f 20 61 | 20 6c 69 73 74 20 6f 66 |en* to a| list of|
|000005b0| 20 74 68 65 20 66 6f 72 | 6d 0d 28 3a 67 61 76 65 | the for|m.(:gave|
|000005c0| 2d 6f 62 6a 65 63 74 2d | 74 65 78 74 20 6f 62 6a |-object-|text obj|
|000005d0| 65 63 74 29 20 77 68 65 | 72 65 20 6f 62 6a 65 63 |ect) whe|re objec|
|000005e0| 74 20 69 73 20 74 68 65 | 20 6f 62 6a 65 63 74 20 |t is the| object |
|000005f0| 74 68 61 74 20 77 61 73 | 20 63 6c 69 63 6b 65 64 |that was| clicked|
|00000600| 0d 6f 6e 20 74 6f 20 67 | 65 6e 65 72 61 74 65 20 |.on to g|enerate |
|00000610| 67 69 76 65 2d 74 65 78 | 74 27 73 20 73 74 72 69 |give-tex|t's stri|
|00000620| 6e 67 2e 0d 7c 23 0d 0d | 0d 28 64 65 66 70 61 72 |ng..|#..|.(defpar|
|00000630| 61 6d 65 74 65 72 20 2a | 6c 2d 6f 62 6a 65 63 74 |ameter *|l-object|
|00000640| 2d 67 69 76 65 6e 2a 20 | 28 29 0d 20 20 22 41 20 |-given* |().  "A |
|00000650| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |list of |the form|
|00000660| 20 28 3a 67 61 76 65 2d | 6f 62 6a 65 63 74 2d 74 | (:gave-|object-t|
|00000670| 65 78 74 20 6f 62 6a 65 | 63 74 29 2c 20 73 65 74 |ext obje|ct), set|
|00000680| 20 62 79 20 66 6f 6c 6c | 6f 77 69 6e 67 20 67 65 | by foll|owing ge|
|00000690| 6e 65 72 61 6c 0d 67 69 | 76 65 2d 74 65 78 74 20 |neral.gi|ve-text |
|000006a0| 6d 65 74 68 6f 64 2e 22 | 29 0d 0d 0d 28 64 65 66 |method."|)...(def|
|000006b0| 6d 65 74 68 6f 64 20 67 | 69 76 65 2d 74 65 78 74 |method g|ive-text|
|000006c0| 20 3a 62 65 66 6f 72 65 | 20 28 28 76 20 74 29 29 | :before| ((v t))|
|000006d0| 0d 20 20 22 52 65 73 65 | 74 73 20 2a 6c 2d 6f 62 |.  "Rese|ts *l-ob|
|000006e0| 6a 65 63 74 2d 67 69 76 | 65 6e 2a 20 74 6f 20 6e |ject-giv|en* to n|
|000006f0| 69 6c 20 73 6f 20 77 65 | 20 63 61 6e 20 6b 6e 6f |il so we| can kno|
|00000700| 77 20 77 68 65 74 68 65 | 72 20 6f 62 6a 65 63 74 |w whethe|r object|
|00000710| 20 74 65 78 74 20 77 61 | 73 0d 67 69 76 65 6e 2e | text wa|s.given.|
|00000720| 22 0d 20 20 3b 3b 0d 20 | 20 28 73 65 74 66 20 2a |".  ;;. | (setf *|
|00000730| 6c 2d 6f 62 6a 65 63 74 | 2d 67 69 76 65 6e 2a 20 |l-object|-given* |
|00000740| 6e 69 6c 29 29 0d 0d 0d | 3b 3b 3b 20 50 61 74 63 |nil))...|;;; Patc|
|00000750| 68 20 6d 6f 75 73 65 2d | 63 6f 70 79 27 73 20 67 |h mouse-|copy's g|
|00000760| 69 76 65 2d 74 65 78 74 | 20 6d 65 74 68 6f 64 73 |ive-text| methods|
|00000770| 20 74 68 61 74 20 73 65 | 74 20 2a 20 3a 0d 0d 28 | that se|t * :..(|
|00000780| 64 65 66 6d 65 74 68 6f | 64 20 67 69 76 65 2d 74 |defmetho|d give-t|
|00000790| 65 78 74 20 3a 61 66 74 | 65 72 20 28 28 76 20 73 |ext :aft|er ((v s|
|000007a0| 65 71 75 65 6e 63 65 2d | 64 69 61 6c 6f 67 2d 69 |equence-|dialog-i|
|000007b0| 74 65 6d 29 29 0d 20 20 | 28 73 65 74 66 20 2a 6c |tem)).  |(setf *l|
|000007c0| 2d 6f 62 6a 65 63 74 2d | 67 69 76 65 6e 2a 20 60 |-object-|given* `|
|000007d0| 28 3a 67 61 76 65 2d 6f | 62 6a 65 63 74 2d 74 65 |(:gave-o|bject-te|
|000007e0| 78 74 20 2c 2a 29 29 29 | 0d 0d 28 64 65 66 6d 65 |xt ,*)))|..(defme|
|000007f0| 74 68 6f 64 20 67 69 76 | 65 2d 74 65 78 74 20 3a |thod giv|e-text :|
|00000800| 61 66 74 65 72 20 28 28 | 76 69 65 77 20 69 6e 73 |after ((|view ins|
|00000810| 70 65 63 74 6f 72 3a 3a | 69 6e 73 70 65 63 74 6f |pector::|inspecto|
|00000820| 72 2d 76 69 65 77 29 29 | 0d 20 20 28 73 65 74 66 |r-view))|.  (setf|
|00000830| 20 2a 6c 2d 6f 62 6a 65 | 63 74 2d 67 69 76 65 6e | *l-obje|ct-given|
|00000840| 2a 20 60 28 3a 67 61 76 | 65 2d 6f 62 6a 65 63 74 |* `(:gav|e-object|
|00000850| 2d 74 65 78 74 20 2c 2a | 29 29 29 0d 0d 28 64 65 |-text ,*|)))..(de|
|00000860| 66 6d 65 74 68 6f 64 20 | 67 69 76 65 2d 74 65 78 |fmethod |give-tex|
|00000870| 74 20 3a 61 66 74 65 72 | 20 28 28 77 20 6d 65 6e |t :after| ((w men|
|00000880| 75 2d 6f 66 2d 64 65 66 | 73 2d 64 69 61 6c 6f 67 |u-of-def|s-dialog|
|00000890| 29 29 0d 20 20 28 73 65 | 74 66 20 2a 6c 2d 6f 62 |)).  (se|tf *l-ob|
|000008a0| 6a 65 63 74 2d 67 69 76 | 65 6e 2a 20 60 28 3a 67 |ject-giv|en* `(:g|
|000008b0| 61 76 65 2d 6f 62 6a 65 | 63 74 2d 74 65 78 74 20 |ave-obje|ct-text |
|000008c0| 2c 2a 29 29 29 0d 0d 0d | 28 64 65 66 6d 65 74 68 |,*)))...|(defmeth|
|000008d0| 6f 64 20 69 6e 73 65 72 | 74 2d 74 65 78 74 20 28 |od inser|t-text (|
|000008e0| 28 76 20 6f 62 6a 65 63 | 74 2d 66 72 65 64 2d 64 |(v objec|t-fred-d|
|000008f0| 69 61 6c 6f 67 2d 69 74 | 65 6d 29 20 73 74 72 69 |ialog-it|em) stri|
|00000900| 6e 67 29 0d 20 20 22 49 | 66 20 2a 6c 2d 6f 62 6a |ng).  "I|f *l-obj|
|00000910| 65 63 74 2d 67 69 76 65 | 6e 2a 20 69 73 20 61 20 |ect-give|n* is a |
|00000920| 6c 69 73 74 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |list of |the form|
|00000930| 20 64 65 73 63 72 69 62 | 65 64 20 61 62 6f 76 65 | describ|ed above|
|00000940| 20 74 68 65 6e 20 61 64 | 64 2d 6c 69 6e 6b 0d 69 | then ad|d-link.i|
|00000950| 73 20 63 61 6c 6c 65 64 | 20 6f 6e 20 2a 6c 2d 6f |s called| on *l-o|
|00000960| 62 6a 65 63 74 2d 67 69 | 76 65 6e 2a 27 73 20 73 |bject-gi|ven*'s s|
|00000970| 65 63 6f 6e 64 20 76 61 | 6c 75 65 2e 20 4f 74 68 |econd va|lue. Oth|
|00000980| 65 72 77 69 73 65 20 64 | 6f 65 73 20 74 68 65 20 |erwise d|oes the |
|00000990| 75 73 75 61 6c 2e 22 0d | 20 20 28 64 65 63 6c 61 |usual.".|  (decla|
|000009a0| 72 65 20 28 69 67 6e 6f | 72 65 20 73 74 72 69 6e |re (igno|re strin|
|000009b0| 67 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 28 6f |g).     |      (o|
|000009c0| 70 74 69 6d 69 7a 65 20 | 73 70 65 65 64 29 29 0d |ptimize |speed)).|
|000009d0| 20 20 3b 3b 0d 20 20 28 | 63 6f 6e 64 20 28 28 61 |  ;;.  (|cond ((a|
|000009e0| 6e 64 20 2a 6c 2d 6f 62 | 6a 65 63 74 2d 67 69 76 |nd *l-ob|ject-giv|
|000009f0| 65 6e 2a 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |en*.    |        |
|00000a00| 20 20 28 6e 6f 74 20 28 | 73 74 72 69 6e 67 70 20 |  (not (|stringp |
|00000a10| 28 73 65 63 6f 6e 64 20 | 2a 6c 2d 6f 62 6a 65 63 |(second |*l-objec|
|00000a20| 74 2d 67 69 76 65 6e 2a | 29 29 29 29 0d 20 20 20 |t-given*|)))).   |
|00000a30| 20 20 20 20 20 20 28 61 | 64 64 2d 6c 69 6e 6b 20 |      (a|dd-link |
|00000a40| 76 20 28 73 65 63 6f 6e | 64 20 2a 6c 2d 6f 62 6a |v (secon|d *l-obj|
|00000a50| 65 63 74 2d 67 69 76 65 | 6e 2a 29 20 28 62 75 66 |ect-give|n*) (buf|
|00000a60| 66 65 72 2d 70 6f 73 69 | 74 69 6f 6e 20 28 66 72 |fer-posi|tion (fr|
|00000a70| 65 64 2d 62 75 66 66 65 | 72 20 76 29 29 29 0d 20 |ed-buffe|r v))). |
|00000a80| 20 20 20 20 20 20 20 20 | 28 66 72 65 64 2d 75 70 |        |(fred-up|
|00000a90| 64 61 74 65 20 76 29 29 | 0d 20 20 20 20 20 20 20 |date v))|.       |
|00000aa0| 20 28 74 20 28 63 61 6c | 6c 2d 6e 65 78 74 2d 6d | (t (cal|l-next-m|
|00000ab0| 65 74 68 6f 64 29 29 29 | 29 0d 0d 0d 3b 3b 3b 20 |ethod)))|)...;;; |
|00000ac0| 44 6f 6e 65 2e 0d 0d 28 | 70 72 6f 76 69 64 65 20 |Done...(|provide |
|00000ad0| 22 4f 42 4a 45 43 54 2d | 46 44 49 2d 4d 4f 55 53 |"OBJECT-|FDI-MOUS|
|00000ae0| 45 2d 43 4f 50 59 2d 47 | 4c 55 45 22 29 00 00 00 |E-COPY-G|LUE")...|
|00000af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b00| 00 00 01 00 00 00 01 a2 | 00 00 00 a2 00 00 00 52 |........|.......R|
|00000b10| 20 28 65 64 69 74 2d 6c | 2d 64 61 74 61 20 2a 6c | (edit-l|-data *l|
|00000b20| 2d 64 61 74 61 2d 74 65 | 73 74 2a 20 2a 6f 66 64 |-data-te|st* *ofd|
|00000b30| 1f 6f 62 6a 65 63 74 2d | 46 44 49 2d 6d 6f 75 73 |.object-|FDI-mous|
|00000b40| 65 2d 63 6f 70 79 2d 67 | 6c 75 65 2e 6c 69 73 70 |e-copy-g|lue.lisp|
|00000b50| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 14 00 c0 |..TEXTCC|L2......|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 a6 b2 66 16 00 00 | 0a 6d 00 00 01 f4 6e 6e |....f...|.m....nn|
|00000b80| 69 6e 67 20 74 65 73 74 | 20 74 68 65 6e 20 63 61 |ing test| then ca|
|00000b90| 6c 6c 69 6e 67 0d 6c 2d | 73 74 72 2d 6f 62 6a 2d |lling.l-|str-obj-|
|00000ba0| 6f 66 64 69 20 63 68 61 | 6e 67 65 73 20 2a 6c 2d |ofdi cha|nges *l-|
|00000bb0| 64 61 74 61 2d 74 65 73 | 74 2a 20 2e 22 0d 20 20 |data-tes|t* .".  |
|00000bc0| 3b 3b 0d 20 20 28 6c 65 | 74 20 28 28 6c 2d 64 61 |;;.  (le|t ((l-da|
|00000bd0| 74 61 2d 74 65 73 74 2d | 69 6e 69 74 69 61 6c 20 |ta-test-|initial |
|00000be0| 2a 6c 2d 64 61 74 61 2d | 74 65 73 74 2a 29 29 0d |*l-data-|test*)).|
|00000bf0| 20 20 20 20 28 74 65 73 | 74 29 0d 20 20 20 20 28 |    (tes|t).    (|
|00000c00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 06 | 00 08 00 29 00 23 01 de |........|...).#..|
|00000c30| 02 20 00 29 00 23 01 de | 02 20 00 00 00 00 00 00 |. .).#..|. ......|
|00000c40| 0a 6d 00 00 0a 6d 00 00 | 0a 3c 01 00 00 00 00 3e |.m...m..|.<.....>|
|00000c50| 00 02 00 04 09 00 00 03 | 09 01 01 00 00 00 02 00 |........|........|
|00000c60| 05 b7 01 00 05 c7 02 00 | 06 37 01 00 06 40 02 00 |........|.7...@..|
|00000c70| 07 0a 01 00 07 13 02 00 | 07 75 01 00 07 7e 02 00 |........|.u...~..|
|00000c80| 07 e8 01 00 07 f1 02 00 | 08 53 01 00 08 5e 00 00 |........|.S...^..|
|00000c90| 00 10 00 00 06 4d 6f 6e | 61 63 6f 06 47 65 6e 65 |.....Mon|aco.Gene|
|00000ca0| 76 61 00 00 01 00 00 00 | 01 a2 00 00 00 a2 00 00 |va......|........|
|00000cb0| 00 52 00 28 b4 6c 09 30 | 00 00 00 1c 00 52 00 01 |.R.(.l.0|.....R..|
|00000cc0| 46 52 45 44 00 01 00 12 | 4d 50 53 52 00 00 00 2a |FRED....|MPSR...*|
|00000cd0| 00 02 ff ff 00 00 00 4c | 00 00 00 00 00 03 ff ff |.......L|........|
|00000ce0| 00 00 00 8e 00 00 00 00 | 03 ed ff ff 00 00 00 00 |........|........|
|00000cf0| 00 29 ad 18 00 00 00 00 | 00 00 00 00 00 00 00 00 |.)......|........|
+--------+-------------------------+-------------------------+--------+--------+